Procedure StringToTime(Strg:String;Var Time:TimeDate;Var Code:Integer);

    The time  in  string  Strg  is  converted  into  the  time  of  Time.
    Note that Time.Year, Time.Month,  Time.Day,  Time.WeekDay and Time.ms
    remain unchanged.

    Strg must be of the form HH:MM:SS (24 hour format).

    If an  error  occurs,  Time  remains  unchanged  and  Code  is  given
    a value > 0.  Code = 0 if the string is decoded correctly.

    Correct Time Formats

    00:00:00
    01:02:59

    Incorrect Time Formats

    24:00:00
    01:66:12